الحسب الالي لصف انئاك اإعادي ____إعدإدالاستاذ: محمودفؤإدالرجيلي ‏ 


۳. 


الفصل الأول .....تمثيل البيانات 


كيف تجرى عملية حسابية في ال ٤s¡c."e۾8‏ ua1ئVi‏ 


البيانات الرقمية : 


في البداية تستقبل ما يكتبه المستخدم باستخدام أداة الكتابة ×80 ٠٠×۲‏ وهذا يمثل المدخلات (مدخلات 
حرفية) تحول إلي رقمية . 

ثم يتم اجراء العمليات الحسابية عليها في ذاكرة الحاسب . 

واخيراً تقوم بعرض النتائج بالتنسيق المناسب . 


- 
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٠‏ هى البيانات التى يتم إجراء العمليات الحسابية عليها » ومن أمثلتها " معدل الفائدة " الذي يعطيه البنك هو 


بيان رقمى لأنه يتم إجراء عمليات حسابية عليه . 


البيانات الحرفية : 
هى البيانات التى لا يجوز إجراء العمليات الحسابية عليها حتى لو كانت هذه البيانات أرقام » ومن أمثلتها 


' رقم الهاتف " هو بيان حرفى لا يجوز إجراء عمليات حسابية عليه على الرغم من أنه يتكون من أرقام 


# البيانات الثابتة و المتغيرة 


الفصل الدراسي الاي 


اى بيانات تخزن في ذاكرة الحاسب الداخلية . 

هذه ١‏ لذاكرة تتكون من ملايين الخلايا المتساوية و تسمى كل خلية (ء)رB‏ ) . 

يمثل عدد الخلايا حجم الذاكرة . 

تسمح كل لغات البرمجة بإعطاء اسماء للخلايا التى سيتم تخزين البيانات بها حتى يسهل تتبعها و التعامل 

معها . 

يعطى اسم واحد لكل خلية أو مجموعة من الخلايا ما دامت تحمل قيمة واحدة ولذلك . 

. اذا كانت القيم المخزنة تتغير اثناء تشغيل البرنامج فإن اسماء الخلايا التى تشغله هذه القيم يطلق عليها 
متغير ات sع[a]12bےV‏ . 

. اذا كانت القيم لا تتغير اثناء تشغيلها البرنامج فإن اسماء الخلايا التى تشغلها هذه القيم يطلق عليها 
الثوابت s”ةاوره٣‏ » وتعتبر قيمة " ط والتى تساوى ٠.٠١‏ مثال للقيم الثابته . 

. أما عملية إعطاء أسماء للخلايا فيطلق عليها " إعلان المتغيرات " 

. وإذا كانت الخلايا ستحمل قيما ثابته يطلق عليها إعلان الثوابت . 
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الدراسي الاي 


Boolean -' 
True / False 


() 


Integer 


Char 


-٤‏ تاریخ / وقت 
Date‏ 
من ۰۰۰۱/۱/۱ الى ۹۹۹۹/۱۲/۳۱ 


و 


Decimal 


)۱١( 
صحيحة او عشرية‎ 
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الحاسب الآلى للصف الثالث الإعدادى 


إعدإدإلأسناذ : محمود فؤإدإلر 
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و إعدادالاسناة: محم ود فؤادالرجيلي ا 
قواعد تكوين الأسماء في إل ٤eہ.۷8:-‏ 
« أولا: قواعد يجب الالتزام بها :- 
-١‏ يجب ان يبدأ الاسم بحرف من حروف الانجليزية ( 7Z‏ -۸ ) أو ( 7-ه) ولا يجوز أن يبدأ 
برقم أو أى رمز آخر ولا يجوز إستخدام اللغة العربية . . 
- يأتي بعد الحرف الأول أي عدد من الحروف او الأرقام . 
۳- لا یسمح ان یحتوی على رموز او علامات او مسافات ماعدا علامة ال 
Underscore‏ . 
-٤‏ ممنوع استخدام الكلمات المحجوزة فى V8.netٿJ Data - Short - Double‏ ¬ 
Decimal - Integer - Long - Case - Single - Boolean - Byte - Char‏ 


Const —- Mod —- MsgBox - String —- Dim - Print- Color - Me 
VpbCrLf Then —- For —- Next —- To —- Step 


°- عدم استخدام إسم واحد مرتين 


ماذا يحدث لو لم نلتزم بهذه القواعد ؟ 
فإن البرنامج لن يعمل وسیشیر المترجم/ المفسر إلى خطأ فی القواعد ( )S۷١٤4× e۲0۲‏ . 


u‏ ثانيا : قواعد يستحسن الالتزم بها چ 
-١‏ اختر أسماء ذات معنى مناسب مثل الإسم "51 للمجموع . 
- فى الكلمات التى تتكون من مقطعين يمكن ان يبدا كل مقطع بحرف |اه)¡مa٤‏ . 
۳- يفضل ان يبدا الاسم ب ۳ احرف تعطى انطباع عن نوع المتغير( الإختصارات ) . 


FirstName 
Ahmed2000 
PopulationOfEgypt 
Spent_mony 


ت فصل الدراسي الثاني ت 


nk 1‏ 
الحاسب الآلي للصف الثالث الإعدادي إعدإد|إلأسناذ : محمود فؤإد|لرجياي 


« ثوابت جواهرية:- 
هي الثوابت الموجودة فى بناء و جوهر نظام ال مم.۷8 
أي يستطيع البرنامج التعامل معها بدون اعلان 
مثال ثوابت الألوان Color.Blue Color.Red Color.Black‏ 


. ثوابت مسماه :- 


SEE E NC O a 
و إلا حدث خطا‎ 


الإعلان عن الثوابت 
Const Name as String = " Ahmed"‏ 
Const Mass AS Decimal = 123.5 d‏ 
Const Mass as Single = 0.123 f‏ 


لاحظ أن :- 

. للإعلان عن الثابت و هي من الكلمات المحجوزة‎ ٥«١ لابد من استخدام كلمة‎ .١ 
. لابد أن تكتب ( = ) ثم بعدها قيمة هذا الثابت‎ .۲ 

۳. هذه القيمة تظل تابتة لا يمكن تغيرها إثناء تشغيل البرنامج . 


مميزات استخدام الثوابت 


. تجعل البرنامج أكثر فهما عند قراءته‎ -١ 
. تقلل الخطأً عند الرغبه فى تغيير أى قيمه‎ - 


ت فصل الدراسي الثاني ۳ 


1 : . 
أعدإدالأسناذ: محمود فوإدالرجيلاي 


الحاسب الآلى للصف الثالث الإعدادى 


المتغيرات 
تعريف المتغير : 


الإعلار المتغيرات 
Dim school as Integer‏ 
Dim Name as String‏ 
Dim Address as String = "Cairo"‏ 
Dim Price as Decimal = 123‏ 
لاحظ ان :- 


. لابد من استخدام كلمة 1۳ للإعلان عن المتغير‎ -١ 
. يمكن أن تكتب ( ) و بعدها قيمة و هذه القيمة ستكون قيمة البداية‎ - 
أو يمكن ان تهملها و لا تستخدم (=) و فى هذه الحالة‎ 
المتغيرات الرقمية تبدأً بقيمة صفر‎ * 
المتغيرات الحرفية ستكون فارغة‎ * 


الإعلان عن أكثر من متغير باستخدام أمر ”01 واحد 
Dim Child as Integer = 123, Name as String = "Ahmed"‏ 
Dim Child , Name , Address as Integer‏ 


أمر التذْ ال ك 
إن أهم دور للمتغيرات هو تخزين البيانات بها ولكي نخزن قيمة فى متغير نستخدم أمر التخصيص 


عا = تھے معافل اا خض 
( اى يتم حجز مكان فى الذاكرة يسمى باسم المتغير و توضع داخله القيمة ) 
يجب مراعاة الاتى:- 

. )=( اسم المتغير الذى نريد التخزين فيه يكون شمال‎ .١ 

۲. القيمة المراد تخزينها تكون يمين (=) وتكون من نوع ملائم لنوع المتغير . 


ت إلفصل الدراسي الثاني 
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ج ج ج جج ت 
الحسب الالي لصف الثاث اإعادي ______إعدإدإلاسثاة: محمودفؤإدإلرجيلي 
۳. القيمة يمكن ان تكون :- 
ه. قيمة مجردة مثل 5=× 
ا. متغير من نوع أخر ۷=× 
ع. عملية حسابية ⁄+2۷=× 


2 مثال‎ 
Price = Quantity*UnitPrice 


Quantity = 100 
UnitPrice = 5.5 
Price = 0.0 


ولتنفيذ هذا الأمر سيقوم الحاسب بعمل الآتي-: 

أً- استبدال القیمتین 100 & 5.5 بالمتغیرین 1٥١ & Q٤٤‏ ۴٤1م‏ بالترتيب فيصبح الطرف الأيمن 
للعلامة "=" هو5.5 * 100 

ب - تنفيذ عملية الضرب وحساب النتيجةء فتصبح القيمة تساوى (550) 
ت - تخزين النتيجة ( 550 ) فی ع1cا۴٣‏ 
ونلاحظ في هذا الأمر أن القيمة ,ان٤٣2 Qu‏ & ١ء‏ ا٣٥۴‏ ازمل لم تتغير وذلك لاننا فقط نستعمل قيمة 
المتغيرات التي علي يمين "=" واستعمال القيم لا يؤثر فيها ولا يغيرها بكل تأكيد؛ أما قيمة عءإ۴ فإنها 
تغيرت نتيجة تخزين النتيجة بهاء وذلك يعني أن النتيجة ( 550) قد حلت محل القيمة القديمة للمتغير 
ce‏ 1و التی كانت صفرا . 


. استعمال أمر التخصيص مع المتغيرات الحرفية 
FirstName ="Hany"‏ 
SecondName = "Ahmed"‏ 
Fullname = "Welcome"&FirstName&" "&SecondName‏ 
تكون النتيجة 


Welcome Hany Ahmed 
& قمنا بعملية ربط بين المتغيرات باستخدام العلامة‎ - 


د ^ "فى انه سرك محافة فار غة مقذار ها مافة و اخدة أو عدة ممافات 


I I 


- ""تعنى قيمة حرفية فارغة ( طولها صفر ) . 


ت إلفصل الدراسي الثاني . 
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الحاسب الآلى للصف الثالث الإعدادى 


الت ¿ الأنواع المختلفة للبيانات باستخدام Parse Method‏ 
الشکل العام Parse Method Ji‏ 
.١‏ لتحويل قيمة حرفية الي عدد صحیيح ۲ععع†ہ1 
( القيمة الحرفية( Integer. Parse‏ 
۲. لتحويل قيمة حرفية الى عدد عشرى اجهصہ1ءء5] 
( القيمة انحرفية( Decimal.Parse‏ 


# تحويل البيانات الرقمية إلي بيانات حرفية 
ڊlتعJln‏ ) ( To string‏ 
يتم التحويل من نوع إلى أخر بإستخدام 1٠‏ ويسمى هذا التحويل بالتحويل التلقائی 
#ه العملبات الحساببة :- 


قسمة الأعداد الصحيحة وباقي القسمة 
إذا قسمنا العدد الصحيح ( إععء)م]) ٤٠۸‏ على العدد الصحيح ° فتكون النتيجة کالآتى :- 


.١‏ قسمة عادية 


3 

SSO 

5 1 
۲. قسمة اعداد صحيحة 
( ای اهمال باقى القسمة) 9= 4815 
۳. اذا اردنا الباقى فيمكن الحصول عليه کالآتی :- 3 = 5 mod‏ 48 


الفصل الدراسي الاي 


1 ` ۴ 
اعدإدالأسناذ: محمود فوإدالرجيلاي 
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ترتيب تنفيذ العمليات الحسابية :- 

ترتيب تنفيذ العمليات الحسابية داخل ۷8 يتم كالآتى : حتى يتم الحصول على النتائج الصحيحة 
.١‏ العمليات التى بين الاقواس ( الداخلية اولا ثم الخارجية ) 
۲. عمليات الاس ^ 
۳. عمليات الضرب و القسمة * / ( الاولوية من اليسار ثم اليمين ) 
.٤‏ قسمه الأعداد الصحيحه | . 
. باقى القسه M0‏ . 
.٦‏ عمليات الجمع و الطرح + - (الاولوية من اليسار الي ليمين ) 

ا 

ما هي نتيجة تنفيذ العمليات الآتية بافتراض القيم التالية للمتغيرات :- 
X=2 Y¥=3 7Z=4‏ 


A) X*(Y+1) 
B) Y^X*X+7Z*3 


الحل 
(A‏ 
-١‏ نستبدل کل متغیر بقیمته (SFY‏ 2 
اتسا ها دا ای ا (4) *2 
۳- تنفيذ عملية الضرب فيكون الناتج )8( 
(B‏ 
کل کل میں ته 2+4*3* 3^2 
ی 9*2+4*3 
۳. تنفيذ عملية الضرب التى في اليسار 3* 18+4 
.٤‏ تنفيذ عملية الضرب التى في اليمين #12 
.٥‏ تنفيذ الجمع ليكون الناتج 30 


ت إلفصل الدراسي الثاني 


ججج ي 
الحاسب الالى الصف الثلث اإعادي _______إعدإدالاسثاة: محمودفؤادالرجيلي 


1 
1 . 2 
الحاسب الآلى للصف الثالث الإعدادى أعدإد|لأسناذ : محمود فؤإدالرجياي 
مجموعة أوامر Try / Catch‏ :- 
_ تستخدم لاكتشاف الأخطاء التي تحدث أثناء تشغيل البرنامج و التعامل معها . 
الفكرة الأساسية لها :- 
مجموعة من الأوامر التى لابد ان يبذلها المستخدم بدون أخطاء Try‏ 
بقية أوامر البرنامج End Try‏ 
- اذ قمنا بتنفيذ الاوامر بعد ۲آ بدون اخطاء ينتقل البرنامج الي الاوامر بعد ۲۷آ ل۴ مباشرة 
- اذا تم تنفيذ الاوامر بعد ۲آ بأخطاء ينتقل البرنامج الي الاوامر بعد 1ءاه٣‏ ليعرض الرسالة 
الموجودة بها و لا يتابع تنفيذ الاوامر بعد ذلك تصحيح الخطاً . 
9 
إلمصل الدراسي |لاني 
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kkk 
الحاسب الآلى للصف الثالث الإعدادى إعدإدإلأسناذ : محمود فؤإدالرجياي‎ 


أسنَلة الكتاب للفصل الأول 


السؤال الأول : اخثر الإجابة الصحيحة من الأاختيارات المتاحة 


1- العملة الت ا“ تحویل من نوع بیانات د أكثر اتساعا 


Data Transform ati0n تlناlيبلاi أ( تحويل‎ 
Implicit Conversion qإئlقلتلا ب( التحویل‎ 
Data Change تlنlيبئلإ ج( تغيير‎ 

د) التحويل الغير مباشر r5İ071ص1V8^ Explicit CO0‏ 


: النوع سلسلة حرفي هداااS هر‎ 
Dim N1,N2,N3 As Integer, S1,52 As String (i 


Dim N1,N2,N3 As Integer ب(‎ 
Dim 51,52 As String 
Dim N1 As Integer (z 
Dim N2 As Integer 
Dim N3 As Integer 
Dim S1 As String 
Dim S2 As String 


أ) تضاف إلى القيمة السابقة الموجودة في هذا العنوان . 

ب تدا القيمة السابقة دة قي هذا العتو ا 

ج) يتم قسمتها على القيمة السابقة الموجودة في هذا العنوان 
د) يتم طرحها من القيمة السابقة الموجودة في هذا العنوان . 
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ت إلفصل الدرإسي الثاني 


nn 
الحاسب الالى الصف الثلث اإعادي ________إعدإدالاسثاة: محمودفؤادالرجيلي‎ 


أ) يتم استبدال الموجود في العنوان بالقيمة صفر 


سحتو بات عتو أن الداکر ة 


ج) يتم نقل القيمة إلى عنوان آخر 
د) يتم استبدال الموجود في العنوان بسلسلة حرفية فار غû Empty Siri ng‏ 


أ) بعد تنفيذ التخصيص 
ج) في نفس توقيت التخصيص 
د) في توقيت آخر غير التوقيتات المذكورة 


Variable د(‎ 


9- لتحويل قيمة عددية إلى ن ةه حرفية 51۲104 يتم استخدام الدالة الاتية : 


MakeString (Î 


ToStrind ( 
ChangeToString (g 


د) لا يتم استخدام أي من الدوال السابقة 


- توي الأعلى فى الأسيقية متو الاق 
د) من المستوى الاقل في الأسبقية إلى المستوى الأعلى 
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ت إلفصل |لدراسي الثاني . 


7 ء- - 2 ااه 
الحاسب الالي للصف الثالث الإعادي ________إعدإدالاسناة: محمودفؤادالرجيلي 


السؤال الذانى : مجموعة الأوامر التالية تؤثر علسى تيم المتغقيرات , ^١1 ۳٨١1‏ 
3ہ , n2‏ ںہ تقبع هذه الأوامر موضحا قیم کل المتغیرات في کل خطوة : 


Dim num1,num2,num3 as Integer 
Num3 = numî1 + num#2 + num3 
Numa = num2 + 2 

Numî = 4 

Num2 = num1 — 3 

Num1 = numî1 + num1 

Numa = numa + num3 

Numa = 5 * numê2 / num1 


الاسر 


Numa = num2 + num3 


Num1 = numî1 + numî1 
Numa = 5 * numa / numî1 


السؤال الغالث : ما الخطاً باليرنامج التالى 
Dim Number As Integer‏ 
Number1 = ( 4 * 3*2) /( 10 Mod 3 = 1 )‏ 


الحل 


الخطأً بالبرنامج السابق هو أن ناتج العملية الحسابية ستكون كالتالي : 
Number1 = (4*9 )/ (1-1) = 36/0‏ 


والخطأً هو القسمة على صفر حيث أن ليس لها معنى 
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إلفصل الدراسي الثاني ت 


س—سس—— nen kk‏ 
الحاسب الالى الصف الثلث اإعادي ________إعدإدالاسثاة: محم ود فؤادالرجيلي 


تدريب :أوجد ناتج تنفيذ العمليات التالية داخل V8.6‏ : 
8+5*3 ° 
8+5(*3() ° 
e 16/4+8+6*8‏ 


تمارین 
-١‏ أوجد ناتج تنفيذ العمليات التالية فى لغةً ٤ء ۷8.N‏ 


e X=10+3/3 * 2^2 mod4 
e Y=16^0.5 mod 3 
e Z7Z=5+5-10*3/6 
e X=(3+7)/2+3/6*2 
° Y-=1+(2+2)^2/4*2 
٠ Z7Z=1013* 5/3 
e X=09+9/3/(9 mod 4-1) 
° Y-=16+5-10/)2+3( 
٠ Z7=15/9^0.513 
e X=13-3/3+2*5 

۲ إذا علمت أن 1 = ۸ و 2 = 8 و 3 = € أوجد ناتج كل من العمليات التالية : 


° A^۸^2-B*C/(۸A+2) 

e (A-2B)\(C+B) 

e A+B/B+C 

e (A+3*B/C)^2-2+3*B 
e 5*1+A۸/CMODB 

e 10/2*B+C/2*B\A 

e A+B-8+9/3MOD4^0.5 
° A-B/-1 

° -A-C/-2 

e -2*-A/2+3*CMOD2 
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ت إلفصل الدراسي الثاني ت 


ڪڪ 
| الحاسب الآلي للصف الثالث الإعدادي إعدإد|لأساة : محمود فؤإد|لرجياي 
۳- ناتج تنفيذ الجملة ( 2+3*5 ) هو 25 ) ( 
؛- عملية الأس تلي عملية قسمة الأعداد الصحيحة فى أولويات تنفيذ العمليات الحسابية ) ( 
-٥‏ في أي عملية حسابية إذا وجدت أقواس داخلية وخارجية فان الأقواس الخارجية تنفذ أولا ) ( 
-٦‏ المعامل ' ١‏ " يسبق المعامل ' / " فى أولويات تنفيذ العمليات الحسابية ) ( 
۷- القسم lلرnêمي Integer Division‏ د 
ج( ۱ د) + 
أ( 14 ب) 5 ج) 12 د) غير ذلك 
۹- العملية التي تسبق عمليتي الضرب والقسمة في أولويات تنفيذ العمليات الحسابية هي العملية : 
أً) الجمع والطرح ب) حساب باقي القسمة ج) قسمة الأعداد الصحيحة د) عمليات الأسس 
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ت إلفصل الدراسي الثاني 


2 


1 


الحاسب الآلى للصف الثالث الإعدادى 


الفصل الثانى 


الشروط والقرارات 


٠‏ استخدام التعبيرات الشرطية 
التعبير الشرطي : هو عبارة عن صياغة للعلاقة بين كميتين 


- أي من هاتين الكميتين من الممكن أن تكون متغير أو خاصية أو ثابت أو قيمة مجردة . 


- والعكس إذا كانت العلاقة صحيحة فتكون قيمة التعبير الشرطي ٥د٣1‏ . 


- لصياغة التعبيرات الشرطية فإننا نقوم باستعمال بعض المعاملات تىى 75[&7&5¥ . 


مثال 
A = 50 B = 60‏ 

النتيجة متال 

A>B False 

A<B True 

A =B False 

A<>B True 

ه قاعدة استخدام الأمر میا٤‏ ....... E Then‏ 


If condition ( رط‎ ) Then 
Statement Block] ( ` مجموعة الأوامر رم‎ ( 
Else 
Statement Block2 ( 1 مجموعة الأوامر رقم‎ ( 
End If 
Statement B1lock3 ( ۳ مجمو عة الأوامر رقم‎ ( 


.١‏ إذا كانت قيمة الشرط عد۲۲ سيقوم البرنامج بتنفيذ مجموعة الأوامر رقم ١‏ ويهمل مجموعة الأوامر رقم ۲ ثم 


يذهب لتنفيذ مجموعة الأوامر رقم " . 


.١‏ إذا كانت قيمة الشرط م۴1 سيقوم البرنامج بتنفيذ مجموعة الأوامر رقم ۲ ويهمل مجموعة الأوامر رقم ١‏ ثم 


يذهب لتنفيذ مجموعة الأوامر رقم ٣‏ . 
٠‏ الشکل العام للأمر می٤‏ ....... If....... Then‏ 


If condition1 Then 
Statement block 1 


Else If condition2 Then 


أي أن التعبيرات الشرطية يتم إيجاد قيمها من أعلى إلى أسفل . 


الفصل الدراسي لاني 


Statement block 2 


Else 
Statement block n 
End If 
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: . 
اعدإدالأسناذ: محمود فوإدالرجيلاي 


«س——— e‏ بيDanenenknknk|‏ 
الحاسب الالى الصف انثلث اإعادي _______إعدإدالاسثاة: محمودفؤادالرجيلي 


ا 


| مثال 


أك برنامجا لحساب الراتب الأسبوعى لموظف بشرط لوكانت ساعات عمل 
المرظف قل من أو فقاوان 40 فناعة فان أجرة عن المتاعة يكرن 5 عتجهات . أما إذا 
كانت ساعات العمل أكثر من 40 ساعة قإن الراب يتم حسابه كالآتى : 


أ - خمسة جنيهات فى الساعة لأول 40 ساعة . 
ب - عشرة جنيهات فى الساعة لما يزيد عن الأربعين ساعة ٢ْ‏ 


الراب = 5×40 + إ ساعات العمل - 40 ) ×10 


ر 


Dim HoursWorked, OverTime, Salary as Decimal 
HoursWorked=Decimal.parse(textbox1.text) 
If HoursWorked > 40 Then 
OverTime = 10 * (HoursWorked - 40) 
Salary = 40* 5 + OverTime 


Formî ۱0K 


Else 
Salary = 5 * HoursWorked 
End If 
MsgBox(“The salary is equal to “ & Salary) 


If condition Then 
Statement block 1 
End If 
Statement block 2 
ثم يذهب لتنفيذ‎ ١ إذا كانت قيمة الشرط مد1 سيقوم البرنامج بتنفيذ مجموعة الأوامر رقم‎ .١ 
. ۲ مجموعة الأوامر رقم‎ 
. ۲ إذا كانت قيمة الشرط مء[ه۴ فان لبرنامج سيذهب مباشرة لتنفيذ مجموعة الأوامر رقم‎ .١ 
مثال‎ 
If Age > 16 Then 
MsgBox(“ You can get an ID card”) 
End If 


If....... Then ....... غ[sع الأمر‎ .١ 

سيتم استخدامه في حاله ما إذا كان هناك بديلين ( أ> ب ) وكنا نريد تنفيذ أحد البديلين فاذا كانت 
قیمة الشرط ں1۲ یتم تنفیذ الأمر الأول ویتجاھل الثانی وإذا كانت قیمة الشرط ع[ھ۴ یتم تنفیذ 
البدیل الثانی وھکذا إلی أن نصل إلى 1f‏ إ,٤‏ . 


۲. الأمر If ....... Then‏ 
يتم استخدامه في حاله ما إذا كان هناك بديل واحد ( أ) بمعنى انه عند قيمة معينة للشرط يتم تنفيذ 
البديل (أ) أما عند القيمة الأخرى فلا يتم عمل شئ . 
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ت فصل الدرإسي الثاني ت 


3 


1 


الحاسب الآلى للصف الثالث الإعدادى 


٠‏ الشروط المركبة 


Yr :‏ . 
أعدادإلأسناذ : محمود فوإدالرجيلاي 


تستخدم في حالة ما إذا كنا سنستخدم قرارا معينا بناء! على تحقق شرطين ولیس شرط واحد 
ويمكننا عمل الشرط لمركب بالربط بين أكثر من شرط بأحد المعاملات التي تسمى المعاملات 


Not 


اللتيجه 
(Result)‏ 


True Or False 4 


True 


True OrElse...... => 


True 


True And False => 
False 


False AndAlsû ...... 


2 False 


True Xor True = 


False 


Not [True] 3 False 


الفصل الدراسي الاي 


, And , AndAlso , XOr 


مال 
(Example)‏ 
firstlnteger = 50Û‏ 
Or‏ 


secondinteger = 200 


firstlnteger = 50 
Or 
secondInteger 200Û 


firatlniteger cw 50 
اھ‎ 
secondIniteger < 2M 
firstlntepger <50 
il 


secodInteger = 20 


firstlnteger = 50 
Or 
secondIniteger = 200 


Not {firstlnteger = 50} 


OrElse 


Or , 


firstInteger = 50 


secondInteger = 90 


السطنى 
(Meaning)‏ 


إذا كان أك الشرطين أو 
صحیح 

فإن النتيجة تكون صحيحه 
ويكون الشرط الثانى لا قيمه 
له 


إذا كان كل من الشرطين 
صحیحا 


إذا كان الشرط آلأرل خطاً 
تكون النتيجة خطأً والشرط 
الثانى لاقيمة له . 


إذا كان كل من الشرطين 
صحيحا أو كلاهما خطأ فان 


النتيجة تكون خطأً 
الشرط صحيحا فإن قيمته 


السعامل المنطقى 


(Logical operator) 


Or 


OrElse 


And Also 


Xor 


Nut 
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1 
1 


= 
e ٤‏ 4 
> 1 3 
ST‏ 1 5ا ى 
37 ڭ 4 :| ن 
٤ a 4 a‏ 
El‏ ك 1 j‏ : 
3 3 394 4 
g:‏ نك ت 1 4 [» 
I‏ 8 ا ك 0 3 = ت 0 a:‏ 
د هة ي 
= : 4 9 
J 4 3‏ 
3 
ك 3 7 
3 رت " 2 
ٍ 2 
5ا ¬ 2 
4.د 
EE‏ 
9 
ك % 3 3 4 
qT‏ ::5 
بك 3 E‏ 4 ك 
ا 3 2 ا ك Ba 3 j‏ 
f 2‏ 4 ل ا = 3 
ج ب ك 
E 3‏ 3 2 
نك ت ر 2 
ت 
mE‏ 23 "2 | 
0 7 » ۹ 
ّ 2 
E 1 E 2 2‏ = 2 ا 2 4 ع ر گے 
fF @ 3‏ ن < : ¬ 
1 ر 8 
م 4 
< 
1" 0 


"gee TTT TY FETT FETT EEE TF 
إلحاسب الالي الصف الثلث اإعادي _______إعدادالاسناة: محمودفؤإدالرجيلي‎ 
ANSI Code الکود نس‎ 


4 


txtPerson1. Text = “NEHAD” „, txtPerson2. Text = “NEHAL” 
IbIStreet1. Text = “SALAH SALEM” , IblStreet2. Text = “SALAH” 
lbICar1. Text = “843335 Cairo” , 1bICar2.Text = “Nasr” 
txfName1. Text = “ahmed” „ txtName2. Text = “Ahmed” 


حدد أي من الشروط الآتية ستكون قيمته 1۲٠0٥‏ وایها سیکون قیمته ۴15e‏ : 


txtPerson1l. Text <“ txiPerson2. Text ص‎ 
lblStreet1.Text < IlblStreet2. Text ت‎ 


lIbICar1.Text <= 1bICard.Text 
txtName1.Texl = txîfNameaza. Text 


الحسسسسل 


|- الشرط xtPerson1 Text > txtPerson2. ex)‏ سیكون ”غ10“ ولك 
لان " 0 " في " 14 NE‏ " أفل فى الرتبة من "1" في " NEHAL‏ " . 
ب- الشرط اe×x‏ 1 .bIStreet2ا‏ < lbltreetl Tet‏ قيمتە "5ا۴4" وذلك 
لأن إحدى القيمتين أقصر من الأخرى وفي هذه الحالة تتم المقارنة كما لو كانت القيمة 
الأقصر متبوعة بمسافات إلي جهة اليمين؛ وهذا يعنى أن أول مسافة سيتم مقارنتها 
بحرف أو رمز من القيمة الأطول و لكي نوضح أكثر فإن عملية المقارنه تتم كما لو 
آنا كنا نقارن 


"sALAL "‏ 
وهذا يعني أن "” SALAH SALEM‏ " كبر من S41۸4"‏ " وذلك لأن الحرف 
a "SALEM" ۳ ng‏ رتبة أعلي س اأمافة المناظر ولك 
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ت إلفصل الدراسي الثاني ۳ 


f‏ ص 
الحاسب الالي للصف الثلث اإعادي _______إعدإدإلاسناذ: محمودفؤادإلرجيلي 


ج = ارط “True” aتuıê IbICarl Text = IbICar2.Text‏ 
وذلك لأن الرقم "8" تمت مقارئته بالحرف "×" وحيث أن كل الأرقام لها رتب 
أقل من الحروف فان رتبه "8" تكون أقل من رثبة "١"‏ ومن الجدير بالملاحظة هنا 
أن "إو أكبر من " مإأو٣‏ 843335" بالرغم من كونها أقصر لأن العبرة ليست 
بالطول ولكن برثبه الأحرف أو الرموز المتذاظرة . 
د- ل¦iرط txiNamel. Text < txtiName2. Texi2‏ تە "عFals"‏ ودا ن 
رتبه "و" في "dعصh"‏ أعلي من رتبة "4" في "لعصطۂ". 


ونلاحظ من إجابة السؤال السابق أنه : 


أد عة افقار ت امن الخررت افا كارن فط مو الر وف ا ا كن رداق توف 
المختلف . 

۲ المسافات أقصر فى المقارنة . 

۳- إذا تمت المقارنة بين قيمتين أحدهما يبدأ برقم فتكون هى الاقصر ( التي تبدأ برقم ). 

. ٤همزاه[ الحروف الصغيره 11ج" تكون أطول من الكبيره‎ -٤ 
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ت إلفصل الدراسي الثاني ٣‏ 


5 : : ۴ 
الحاسب الآلى للصف الثالث الإعدادى أعدإد إلأسناذ : محمود فؤادالرجياي 


Radio Button Sl e 
, تقح المستخدم مجموعة من البدائل لاختبار ي مها فقط‎ 


Radio Button خصائصض !لأًدا5‎ 


الخاصية 
(property) (Action)‏ 


كحديد اسم الأداة و عادة ما ييدء الإسم بالأحرف (لوع) Name‏ 


تحديد لون خافية الأداة BackColor‏ 


ا 3 کل ع اونا غر لکل کے رر اترات ا قد کک زر ای Appearance‏ 
تحدید ما إذا كانت الأداة قد تم اختيار ھا ¢ ¥ Checked ( True jÎ False]‏ 
تحديد ما إذا كان المستخدم يستطيع للتعامل مع الاداة ام Enabled‏ 


تحديد لون الكتاية على الأداة ForeColor‏ 


تحديد ارتقاع الأداة Height‏ 


تحديد الصورة التي ستظهر على الأداة Image‏ 
تحديد الكتاية للتى ستظهر على الأداة 


تحدذید La‏ لذا کاک آلاداة مرقية آم شی مروة 


TEE 
y Radio Button JÎ مثال‎ 


grou p1 radio 
ر [الجئس ]بوا‎ 
eT 
إ نکی عاد‎ 
Fenale 7 
n Radio1.checked=True 
groupz 


ilk Flas (ell de] 


f" Caro [القاهرة]‎ 
r Genl E 
> Radio3.checked=True 


۲ (لامگندري) داراف‎ 
radio4 
f Ulher [gy] 
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ت إلفصل الدراسي الثاني ت 


E 


1 


الحاسب الآلى للصف الثالث الإعدادى 


CheckBox ll 
تتيح للمستخدم مجموعة من البدائل لاختيار أي عد منها‎ 
CleckBox خصائص !لد‎ 


تحدید ما إذا كانت الأداة قد تم احتيار ھا False) 'Y ÇÎ‏ ÎڪٍTrue‏ ( 


تحدید ما لذا كان المستكدم وستطيع لاتعامل مع الأداة آَم لا 


“8 


تحديد لون الكتابة على الأداة 
تحديد الصورة التى ستظهر على الأداة 
تحديد الكتاية للتى ستظهر على الأداة 


4 4 ۴ کہ اه ¢ i”‏ ¢ 
تحدذید سا لذا كانت الاداة سر وة ام ندز سر دك 


تحدید ساج الأداة 


الخاصيهة 


Name 


Height 


مثال 
Engineer‏ * 
Loctor‏ 
I lLawer‏ 
Business rnan‏ ` 
22 
الفصل |لدرإسي |لناني 


: - ۳ 
اعدادإلأسناذ : محمود فوإدالرجيلاي 


Do vm f 
الحاسب الي الصف اثالث الإعادي _______إعدإدإلاسناذ: محمودفؤإدالرجيلي‎ 


GroupBox 5l 
إل مجموعات ویقوم‎ Checked Box و‎ Radio Butt تسمح للمبرمج أن يقسم عدد من الأداة‎ - 
المستخدم باختيار واحدة فقط من كل مجمو عة‎ 


GroupBox خصائص الاداة‎ ٠ 


Property Action 
استرجاع أو تحديد اسم الأداة وعادة ما ييدء الإسم بالأحرف (صءع)‎ 


تحذيد ما إذا كان المسئخدم يسئطيع التعامل مع الأداة م لا ء أى ن الأداة مفعلة أ لا. Enabled‏ 
قي حال عدم تفعيل الأداة ) Enabled = False‏ ) فإن جمیع الأدوات داخل ال_ 
01B 0K‏ تصیح خير مفعلة. 


ترجا ۴ کل الأداء e Group Box‏ لدا ا اختبار ات ا الأداة Flat Style‏ 
وهي Sys"‏ , ( الاتراضفية ( Flat, PopUp, Standard‏ " 


تحديد ما إذا كانت الأداة مرئية أم غير مرئية. في حالة كون الأداة غير مرئية RE‏ 


Fas )‏ = eاطVİi)‏ فان جمیع الأو ات داحل ال×0٥‏ 8ماما تصبح غير مرئية 


") llئجiس Group1.1ext="sex(‏ ی ا 
") محJ‏ lلınںد E Group2.Text=" Birth P1ace(‏ 
کا ]ك[ Fale‏ 
= 
E radio2‏ 


Bill Fla [sun de] 


ج االقاهرد] دمم ا 


Bel. 
٣ (الجيزة ]دعا‎ radia3 
e 
۲ (لامندري] لصتاف‎ 


ˆ Uiher [ZÎ] 
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ت فصل الدراسي الثاني ت 


: : : . 
الحاسب الآلى للصف الثالث الإعدادى إعدإدإلأسناذ: محمود فؤإدالرجياي 


أسملة الكتاب للفصل الثانى 


السؤال الأول : اختر الإجابة الصحيحة مما يلي : 


e الأمر ٥ءا٤...٣٤ط۲ ...1۴ ھو أمر اختیار‎ -١ 
أ) فردی‎ 

ب) مز دوج 

ج) ثلاڻي 


د( لاشيء مما سبق 


۲- یطلق علی الأُمر ٣٥٣‏ ...1۴ أمر .................... لأنه يقوم بتحديد أو تجاهل عمل واحد . 


Single - Selection (Î 


Double — Selection ڊ(‎ 
Multiple — Selection ج(‎ 
Repletion د(‎ 


۳- استخدام المعامل ........... يؤدى إلى خطأ العملية إذا كان ما على يساره اقل مما على يمينه 
أ( = 
ب) <> 
ات 


د( لاشيء مما سبق 


؛- جملة الأمر ٥ء[۸...[5٥1۴...11‏ تنتهي بكلمات e‏ 
End IF (Î‏ 

End Else (Ç 

EndIF ج(‎ 

EndElse د(‎ 


: الجملة التالية يتم تنفيذها فقط في حالة أن يكون الشرط يساوى‎ -٥ 


(n mod d ) < >0 (Î 
ads 
(nmodd)=0 (& 


(n\d)<>0 د(‎ 


ت فصل الدراسي الثاني 


IF ( Condition ) 

MsgBox("'n is divisible 
by d") 
End IF 


E : :‏ 
الحاسب الآلي للصف الثالث الإعدادي اعدإدالأسناذ: محمود فوإدالرجيلاي 


CheckBox —J الخاصية ................. تقوم بإعطاء قيمة لملصق‎ -٦ 
Label (Î 

Text ( 

Checked ج(‎ 


Name د(‎ 


۷- عدد 80×6 )ععطع الممكن اختيارها في المرة الواحدة هو ا 
( واحد 

ب) انان 

ج) ثلاثة 


د) أي عدد ممکن تحدیده 


۸- الشرط ( ظط 0ھ ”۸ 4) يكون صحيحاً إذا كان : 
أا و طا و خا خطا 
با و خاو 8 يدا 
ج) ۵ صحيحا و طا خطاً 


د) ۾ صحیحا و ط أبضا صحبحا 


: الشرط ( ط إ0 4 ) يكون خطأً إذا كان‎ -٩۹ 
أ) ۾ خطأ أو طا خطاً‎ 

ب) ۾ خطأً و ا صحيحا 

ج) ۵ صحيحا و ا خطاً 

د) جمیع ما سبق 


: یکون صحیحا إذا کان‎ )m O۸ ( الشرط‎ - ٠ 
n 

با ا خظاً و يها 

ج) ۳ صحیحاً و 1 خطاً 

د) الجملتان (ب) و (ج) صحيحتان 
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ت فصل الدراسي الثاني ت 


1 


القيمة ( 73.5 ) في للكتابة اسمه ١٣مc؟)٤×)‏ حدد تاذ 


Dim Score As Decimal 

Score = Decimal . Parse ( txtScore . Text ) 
IF Score >= 90 Then 

1b1Display . Text = "Excellent" 

Else IF Score >= 75 Then 

1b1Display . Text = "Very Good" 

Else IF Score >= 60 Then 

1b1Display . Text = " Good" 

Else IF Score >= 50 Then 

10 1blDisplay . Text = " Pass" 


س یا یں جب 0 A‏ ل(ûGd‏ © 0 


11 Else 
12 1b1Display . Text = " Fail" 
13  EndIF 
: الإجاية‎ 
داخل المبين رهامء¡15ط1‎ 6٠0١ يقوم هذه الكود بطباعة كلمة‎ 


١ فما الخطاً ۱ د في‎ ) Label Control رال الثالث : بفرض أن إ ۲۴ط 14ط1 هي أداة‎ 
1 Dim Hour As Integer 
2 Hour = 13 
3 If Hour < 11 
4 IblAmBm.Text = "Am" 
5 Else 
6 IblAmBm.Text = "Pm" 
7 Elseif Hour > 23 Then 
8 Ibl]AmBm. Text = "hour can not be more than 23" 
9 End IF 
الاجابة‎ 
1 Dim Hour As Integer 
2 Hour = 13 
3 If Hour > 23 Then 
4 Ibl]AmBm. Text = "hour can not be more than 23" 
5 Else If Hour <= 11 Then 
6 IblAmBm.Text = "Am" 
7 Else 
8 IblAmBm.Text = "Pm" 
9 End IF 
26 


الفصل الدراسي الاي 


هذه 


: : ۳ 
الحاسب الالى الصف الثلث اإعادي ________إعدإدالاسثاة: محمودفؤادالرجيلي 


. : .1 
الحاسب الآلى للصف الثالث الإعدادى إعدإدإلأسناذ: محمود فؤإدالرجياي 


الفصل الثالث 


أوامر التكرار 


- في هذا الفصل سيتم تقديم أوامر التكرار وهي أوامر تتحكم في إعادة تنفيذ عمل معين أو مجموعة 
من الأوامر حتى يتحقق شرط معين . 


Ci نفذ بینما‎ ( Do While 


يتم إتباع القاعدة التالية : 


شرط نهاية التكرار _ بداية التكرار 


Do While condîtion 

Statement! ^ 

Statement " 

1 > Body ofthe Do While loop oڙرارکكت الجسم المراد‎ 


Statement Nn _ 


Loop. 


نهاية التكرار 5 


٠‏ يستخدم هذا الأمر لتكرار أمر معين أو مجموعة من الأوامر حتى يتحقق شرط معين. 

٠‏ في هذا الأمر لا نعرف عدد المرات التي سيتم تكرارها لأن عدد مرات التكرار هنا يعتمد على شرط معين 

٠‏ يتم تنفيذ الأمر م100 .... هاا"W‏ 00 طالما الشرط متحقق وعندما لا يتحقق الشرط يتم الخروج من 
الدوارة وتنفيذ ما بعدها مباشرة . وفى حالة عدم تحقق الشرط لا يتم تنفيذ أي أوامر داخل الدوارة ويتم 
الخروج منها وتنفيذ ما بعدها . 

ه في کل مرة صل فیها البرنامج إلى ٥ااW۷‏ 00 یقوم باختبار الشرط فإذا کان الشرط خطأً 8ا۴ يتم 
تنفيذ أول أمر بعد كلمة م100 مباشرة » أما إذا كان الشرط صحيح 1۲16 يتم تنفيذ مجموعة الجمل التي 
تلي الشرط وعندما يصل البرنامج إلى كلمة 10٥۳‏ يعود مرة أخری إلى ٥ا۷‏ 00 لاختبار الشرط مرة 


أخرى وهكذا . 
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الحاسب الآلى للصف الثالث الإعدادى 


الشرط خطا 


Do While condition# 


الجسم المراد تکراره | 


Button 1 


: ۳ 
أعدادإلأسناذ : محمود فوإدالرجيلاي 


ا کک 
Do While condition‏ < 
Statement 1‏ / 
رس 


Statemenî 2Z 


Statement 1 
Statement 2 
2 5 Statement 3 
Statement 3 


۸ Statement n 


Statemenî In ل“‎ 
\ Loop 


Loop 


Lim‏ محدد 


اه 
Label î txtLimit‏ 
/ / 
7 / 
ر ۶ 
Limit | 8‏ 
Total 16‏ 
N ۱‏ 
N‏ 
Label3 Label2‏ ۹ 


( شكل البرنامج ) 


sS 
1 Dim X , Sum , Limit 


تحديد المدخلات 
Limit = Integer. Parse (txtLimit. Text)‏ 


e 


X =1 

Do While X < = Limit 
Sum = Sum + X 
X=X+2 


د ظط ا0 © 


Loop 
Print Sum 


o0 ¬ 


( كتابة الكود ) 


الفصل الدراسي الاي 
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ص ر 
الحاسب الآلي للصف الثالث الإعدادي ___إعدإدإلأسناذ: محمودفؤإدإلرجياي 
(D0 1 ........ Loop jail e‏ نفڈ حتی e‏ 


علي العكس من €n) ........ Loop jl Do While ........ 100p‏ 00 یختبر الشرط فإذا کان خاطئا می۴ 
يبدا التكرار ويستمر حتى يصبح الشرط صحيحا عں إ1 وعندها يتوقف التكرارء 
والشرط الموجود في البناء ممما ........ 11 00 یسمی شرط إنهاء التكرار . 


Condition is Truc gıaضص اشر ط1‎ 
ص‎ 
Do Tatil condition 
Statement Î1 
Statement 
Statement 3 


Statement 1‏ ك 
Loop‏ 


Condition is False ظط 4ط‎ j3 


“ Jo Until Son 
ر‎ statement 1 
statementî 2 


Sluleriterl 3 


" 


متال : نفس المتال السايق 


: Do Until ... |00 داخل ×0 16×18 باستخدام‎ 


Dim X , Sum , Limit 

Limit = Integer. Parse (txtLimit. Text) 
X =1 

Do Until X > Limit 

Sum = Sum + X 

X=X+2 

Loop 

Print Sum 


ONO UODOQN — 
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ڪڪ ———_—_—_— ڪڪ 
ا 5 2ه 1 
الحاسب الآلى للصف الثالث الإعدادى أعدإد إلأسناذ : محمود فؤاد|لرجياي 
e‏ !مر Do.......... Loop While‏ 
يعمل !لمر D0 .......... Loop While‏ مثل الأمر D0 While ........ Loop‏ مع اختلاف بسیط وھو أن 
الشرط يتم تقييمه بعد نهاية كل تكرآر وليس قبل بدايته وهذا يؤدي إلي أن الأوامر التي ستتكرر سيتم تنفيذها على الأقل 
مرة واحدة بعكکس Wie ........ 100p‏ 00 حيث أن الأوامر قد لا يتم تنفيذها علي الإطلاق . 


1 


The top of the loop يدقة للتگر ار‎ 


DOD 
Statement 1 
Statement 2Z 
Statement 3 


Body of the Do While... .Loop 
الجسح المطلو_ ب تكر ارد‎ 


Statement 1 س‎ 
he termination con diÎiOn _jl_رگتلا شر ط تيلة‎ 
ن‎ 


Leonp, Whilg condition 


Statement x The bottom of loop حتهفة التكر لر‎ 


Do 
Statement 1 
Statement 2Z 


Statement 1 Statement 3 


Statement 2 
Statement 3 


: 3 F2 
Statement n N 
س‎ 


Statement n 


Loop While condition 


“ 


: Do ... Loop While مlدخawlç‎ 16×8 0X داخل‎ 
Dim X , Sum , Limit 


Limit = Integer. Parse (txtLimit. Text) 
X =1 

Do 

Sum = Sum + X 

X=X+2 

Loop While X <= Limit 

Print Sum 


ONO UODOQN — 
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aaa | 
- 2ة‎ 5 Li 
الحاسب الآلى للصف الثالث الإعدادي إعدإد|لأسناذ : محمود فؤإد|لرجياي‎ 
DO ais Loop Until رaٺl‎ e 
موجود أیضا‎ 0 nti ........ Loop s Do While ........ نفس أوجه الشبة وأوجه الاختلاف بين م00[‎ 
„DOs ess Loop Until sy Do........... Loop While ju 


مثال : نفس المثال السايق أكتب كود برنامج يستخدم لجمع الأعداد الفردية من 1 إلى اأ" أا محدد يتم إدخاله 
إلى البرنامج أثناء تشغيله داخل ×0 Do ... Loop Until مدختwlب 1e8‏ : 


Dim X , Sum , Limit 

Limit = Integer. Parse (txtLimit. Text) 
X =1 

Do 

Sum = Sum + X 

X=X+2 

Loop Until X > Limit 

Print Sum 


O “OOD OQN — 


For .......... Next رaÎl‎ e 


على خلاف أوامر التكرار السابقة والتي لا نعرف فيها عدد مرات التكرار فان الأمر Nex)‏ 


گلمات ىخجوز د 8S6] V8êd W0۲5‏ 
ت أ 


Foreounter = start To end, [Step increment], 
9 ہماتo‎ ٥3ا اختیاری‎ 
Statement 1 E pt e 
8 ۰ يرات رقميه‎ 
Statement Z umefic expressions 
Statement 3 
2 : Body of For ...Next Loop 
کو اك 0 بدانك التكر ار‎ 
The top 5 ہے ات‎ 
of the loop 
Statement 11 


The bottom of the Iloتpص نهاية التگرار‎ 


Next 
۹ Statement x 
ل س لل‎ 
تحدد الكلمة ۴0۲ بداية التكرار‎ ٠ 
نهاية التكرار‎ Nex وتحدد الكلمة‎ ٠ 
Start End ) هو متغیر رقمي يستعمله المبرمج لحساب عدد مرات التكرار مع ملاحظة أن الكلمات‎ Cou n6 والعداد‎ 
. هي قيم رقمية يتولى المبرمج تحديدها‎ ) - امعاeصم١‎ 
. الكلمة م56 استعمالها اختياري وفى حالة عدم استخدامها تزيد قيمة العداد بمقدار 1 بعد كل تكرار‎ ٠ 
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الحاسب الآلى للصف الثالث الإعدادى إعدإدإلأسناذ: محمود فؤإدالرجياي 


أ فة قنوعة 
مثالا : 
أكتب كود برنامج يقوم بتغيير قيمة العداد 6۲ا٣‏ من 5 إلى 50 بزیادة 2 في کل مرۃ باستخدام أمر ۴٥۴...۸٥×†‏ . 
For Counter = 5 To 50 Step 2‏ 
مثال ۲ : 
أكتب كود برنامج يقوم بتغيير قيمة العداد أ من 1 إلى 100 بزيادة 1 في كل مرة باستخدام أمر ا×ع ۴0١...‏ . 
For i = 1 To 100 Step 1‏ 


Or 
For i = 1 To 100 


مثال ۳ : 
أكتب كود برنامج يقوم بتغيير قيمة العداد ¡ من 10 إلى 2 بإضافة 2- في كل مرة باستخدام أُمر ا× ۴0١...‏ . 

For i = 10 To 2 Step -2‏ 
مثال٤‏ : 
أكتب كود برنامج يقوم بتغيير قيمة العداد أ كالتالي ( 19 , 17 ,15 , 13 ,11 ) باستخدام أمر †×ع۴0۴...۸. 

For i = 11 To 19 Step 2‏ 
مثال ٥ه‏ : 
أكتب كود برنامج يقوم بتغيير قيمة العداد أ كالتالي ( 21 , 28 ,35 , 42 , 49 ) باستخدام أمر ا×ع۴0۴...۸. 

For i = 49 To 21 Step -7 


مثال ٦‏ : 
اکتب کود برنامج لحساب مجموعة الأعداد الزوجية من 2 إلى 0 وطباعة ناتج الجمع باستخدام DoWhile.... Loop‏ . 


الحل 
سنقوم بتعريف متغيرين من النوع 9# عام| هما ١N‏ و 86u"‏ الأول كعداد والثاني كمتغير للمجموع والقيمة الافتراضية أو 
الابتدائية لهم هي صف ثم نكتب البرنامج كالتالي : 


1. Dim N, Sum as Integer 
2. Do While ( N < 100) 
3. N=N +2 
4. Sum = Sum +N 
5. Loop 
6. Print Sum 
مثال۷‎ 
For ....N@xt أكتب كود برنامج لطباعة الأعداد الصحيحة من 10 إلى 15 باستخدام‎ 
الحل‎ 
1. Dim N as Integer 
2. For N = 10 to 15 
3. Print N 
4. Next 
32 
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الحاسب الآلى للصف الثالث الإعدادى 


مثال ۸ 
أكتب كود برنامج لطباعة الأعداد الصحيحة الزوجية من 10 إلى 20 باستخدام ×ع.... For‏ 
الحل 
Dim N as Integer‏ 
For N = 10 to 20 step 2‏ 
Print N‏ 
Next‏ 
مثال ٩‏ 
أكتب كود برنامج لطباعة الأعداد الصحيحة الزوجية من 10- إلى 20- باستخدام †×ص.... For‏ 
الحل 
Dim N as Integer‏ 
For N = -10 to -20 step -2‏ 
Print N‏ 
Next‏ 
مثال ۱۰ 
أكتب كود برنامج لطباعة الأعداد الصحيحة الفردية من 1 إلى 99 باستخدام ×ع..... For‏ 
الحل 
Dim N as Integer‏ 
For N = 1 to 99 step 2‏ 
Print N‏ 
Next‏ 
33 
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Bon = BON» 


BON = 


۴ 
أعدإدالأسناذ: محمود فوإدالرجياي 


1 . : : 
الحاسب الآلى للصف الثالث الإعدادى إعدإدإلأسناذ: محمود فؤإدالرجياي 


Format ( ) ئدن‎ 


تستخدم لتحديد شكل المخرجات حيث يمكن استخدام العلامة العشرية وفاصل الآلاف وشاغلات أماكن الأرقام مثل ( 0 و #) 
٠‏ عند استخدام 0 يستبدل به رقم أو صفر في المخرجات 
مثال : أكتب ناتج الأمر التالي ) "00.00" , 5.5 ( Format‏ 
الحل : ناتج الدالة السابقة هو : 05.50 
عند استخدام # يستبدل به رقم أو لاشيء في المخرجات 
مثال : أكتب ناتج الأمر التالي ) "##.##" , 5.5( Format‏ 
الحل : ناتج الدالة السابقة هو : 5.5 


am Tm TT 
Formatlx, “#RO0” a 


النتيجة الدالة 
Format (3.4)‏ 
Format (6.871)‏ 
Format (2.2, "00.00")‏ 
Format (2.111, "00.00"")‏ 
Format (8.4, "##.00"")‏ 
Format (66.33, "#HH.HH")‏ 
Format (3.4, "00.#")‏ 
Format (13.40, "0#0.0#0"")‏ 
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ListBox ölدأ!‎ 


. أحد الأدوات التي ترتبط بالتكرار وتمكن من إنشاء قائمة من العناصر للاختيار منها‎ ٠ 

٠‏ تظهر هذه الأداة على شكل مستطيل يعرض بداخله صفوفاً من الكلام يمثل كل صف عنصرا يمكن لمستخدم التطبيق الاختيار 
منها . 

٠‏ عند وجود عناصر بالقائمة أكثر مما يظهر في مساحة الأداة يظهر شريط تمرير يمكن عن طريقه من الوصول لباقي 
عناصر الأداة . والشكل التالي يوضح صورة لها 


الرجاء اختيار حقل 
الفتات : 


ارتباطات ومراجچ 
التاربخ والوشت 


Ato TexELisk 
BidiGutline 
Lomments 
LOMpPpaFE 
LreateDakte 
Database 
Dake 


خصائص الأداة ×0 s18‏ 


الخاصيهة وظیفتم 1 
Narië‏ تستخدم لتحديد اسم الأداة داخل نافذة الكود ويفضل أن يبدا اسم هذه الأداة بالأحرف 
Ist‏ 


تستخدم هذه الخاصية لإضافة العناصر داخل الأداة ×180ءأا وهذه الخاصية في حد 
ذاتها كائن ٥٥1‏ زط0 له خصائص ووظائف 
تستخدم لتحديد العنصر الواقع عليه الاختيار في الأداة ×80ءآا والمقصود معرفة 


Selectedltems‏ قطن الان كم لست اخارء 
هذه الخاصية تستخدم لتحديد ما إذا كان سيتم ترتيب القيم الموجودة بالقائمة العرض 
أبجديا أم لا > بصرف النظر عن ترتيب إدخالها ولها قيمتان : 
٠ êd‏ ها۴ : (القيمة الافتراضية) وتظهر القيم داخل قائمة العرض بنفس ترتيب 


إضافتها إلى قائمة العرض . 
٠‏ عا" : تظهر القيم داخل قائمة العرض مرتبة أبجدياً بصرف النظر عن 
ترتيب إدخالها . 
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۴ 
أعدإدالأسناذ: محمود فوإدالرجياي 


طرق ووظائف ٥4‏ ط†ە[ الخاصیة |]٥"s‏ للڈ‌د اة ListB OX‏ 


٠‏ الطريقة أو الوظيفة أو الوسيلة إهط†ءN‏ هي وصف لسلوك معين مصاحب للكائن بمعنى أنها أفعال محددة مسبقاً لكل 


کائن . 
e‏ بقة كتابة وسيلة كائ“ : 
به وسي نن هی 


Method الطريقة‎ 


Add (text) 


Count 


Insert ( Index , text ) 


Remove (text) 


RemoveAt (index) 


Clear ( ) 


ملحوظات هامة جدا 


٠ه‏ المعامل ×٥ل۵"٠|‏ يأخذ قيمة رقمية تتراوح من صفر إلى ( 1 - ٤٣اه‏ ) حيث أن ۲٣اه‏ يمثل عدد العناصر فی الأداة 


. ListBox 


٠‏ وبالتالي فان المعامل ×هلك"| يبدأ ترقيمه بصفر فالعنصر الأول داخل ×180ءأا يأخذ الرقم 0 كترتيب والثاني 1 والثالث 


ControlCharits. Tab ٽılألا‎ 


الثابت طs.2اCharاContro‏ هو أحد ثوابت ۷8.۸6 ويستخدم لترك مسافة قدرها ط۵٣‏ أي 6 مسافات بالمسطر 


بين القيم وبعضها . 


الفصل الدراسي الاي 


ObjectName . Method ( ) 


العمل 
إضافة ما بين القوسين من نص في آخر عناصر القائمة بمعنى إضافة عنصر 
جديد للقائمة 
معرفة عدد العناصر في القائمة 
إضافة العنصر ×16 في المكان المحدد ب ×٥ك"|‏ فالعناصر الموجودة عند 
المكان الذي له الرقم ×#لك"| وحتى آخر القائمة تتحرك لأسفل خطوة واحدة 
لإخلاء مكان للعنصر الجديد 
البحث فى عناصر القائمة عن العنصر الذى يساوى 1٤E×1‏ تماما وفى حالة 
وجوده تتم إزالته وتتحرك كل العناصر تحته إلى أعلى خطوة واحدة لتملأً الفراغ 
وإذا لم یوجد عنصر یساوی 1٤×)‏ فلا يحدث شيء 
إزالة العنصر المحدد مكانه بالرقم ×#ل"| مع تحريك كل العناصر الموجودة 
تحته إلى أعلى خطوة واحدة لتملاً الفراغ 
إفراغ الأداة ×180ءأا من كل العناصر بمعنى إزالة كل العناصر الموجودة بها 
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الحاسب الآلى للصف الثالث الإعدادى 


حل أسلة الكتاب الفصل الثالث 


السؤال الأول : اختر الإجابة الصحيحة مما يلى : 


1- الأوامر المتكررة في Do While...loop‏ : 
أ) لا يتم تنفيذها بالمرة 
ب) يتم تنفيذها مرة ة على الأقل 

تم تنفيذها إذا كان الشرط صحيحاً '"٥uإ1"‏ 


د( 7 تنفيذها إذا كان الشرط خاطناً '"مو|و۴" 


2- الأوامر المتكررة في مہہا...ااہ ل 50 یتم تنفیذھا إذا استمر الشرط الآتي زائفاً ماج۴ : 
أ) شرط ال مھ ہا-00 . 

ب) شرط استمرار التكرار . 

ج) شرط ال مھ ھا-|اUnti‏ . 

د) شرط نهاية التكرار . 


3- نوعية الأمر الذی یتم تنفیذه حتى يصبح شرط التكرار خطأ هى : 
Do Until ... Loop (Î‏ 

ب) 00 

Do While (& 

Do While ... Loop د(‎ 


repeater ( 
Loop ب)‎ 
Counter (& 


د) لا شيء مما سبق 


5- لالغاء كل القيم من الأداة ×0 s18أل‏ 
Delete (|‏ 

Clear ڊ(‎ 

Remove (gz 

Destroy د(‎ 


باضافة عنصر جديد الأداة >0 18ءأ_ 


6- الطريتة dه‏ ]م التي تقو 
Add (‏ 

Insert ( 

Include (& 

Append (3 
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E 
الحاسب الآلى للصف الثالث الإعدادى‎ 
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السؤال الثاني : قم بدراسة الأوامر التالية بذرض أن المتخيرات قد تم الإعلان عنها 
Sum = 0‏ 
Count = 0‏ 
Do While {( X < 10 )‏ 
Sum = Sum + X‏ 
Count = Count + 1‏ 
Loop‏ 
Average = Sum / Count‏ 
ه ماالخطأ في هذه الأوامر 
ه٠‏ اكتب الخطوات اللازمة لتصويب هذه الأوامر 


Sum = Û 
Count = Û 

X =0 

Do While ( X < 10) 
X=X+1 
Sum = SUM + X 


Count = Count + 1 
Loop 
Average = Sum / Count 


السؤال الثالث : قم بالبحث من الخطاً راأٌخطاى فى البرنامج التسالى بافتراض أن التكرار يضوم 


. 10 بجمح اأرقام من 1 إلى‎ 
Dim X As Integer = 1 
Dim Sum As Integer = 0 
Do Until X < = 10 
Sum = Sum + X 


الفصل الدراسي الاي 


د ۸ o‏ دک ن ي 


۴ 
اعدإدالأسناذ: محمود فوإدالرجياي 
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الخطأ في البرنامج السابق هو شرط التكرار حيث أن ٥ Until‏ تعمل عندما يکون الشرط خطأ ولکي يكون 
البرنامج صحيح يكون بالشكل : 

Dim X As Integer = 1 

Dim Sum As Integer = 0 

Do Until X > 10 

Sum = Sum + X 

X=X +1 

Loop 


@ طط س‎ Uo N = 


السؤال الرايح : افترض مجموعة الأوامر التالية : 
 Forl =1 To 10 Step X‏ -1 
MsgBox( i )‏ -2 
Next‏ -3 
اشرح كيفية تنفيذ الأوامر فى كل حالة من الحالات الآتية : 
٠ه‏ إذا كان المتغير × أكبر من صفر 
٠‏ إذا كان المتغير × أصغر من صفر 
٠ه‏ إذا كان المتغير × يساوى صفر 


1 إذا كان المتغير × أكبر من صفر وليكن قيمته هي 1 أي 1 = × ليصبح البرنامج كالتا 


1- For | = 1 To 10 Step 1 
2-  MsgBox( i ) 
3- Next 
. 10 يطبع البرنامج الأعداد الطبيعية من 1 إلى‎ 


2- إذا كان المتغير × أصغر من صفر وليكن 1- = × ليصبح شكل البرنامج كالتا 


Bêr l= 1T TO Sep -1‏ -1 
MsgBox( i )‏ -2 
Next‏ -3 
هنا مه]S‏ خطأ لأن البرنامج لن ينتهي حيث أن الزيادة في طريق عكسي بالسالب ولن نصل إلى النهاية 
3- اذا كان المتغير × يساوي صة شکل ١‏ 
 Forl =1 To 10 Step 0‏ -1 
MsgBox( i )‏ -2 
Next‏ -3 
بالطبع لا يصلح أن تكون الزيادة بصفر وهذا خطأ داخل البرنامج والبرنامج لن يعمل . 
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. : ۴ 
الحاسب الآلى للصف الثالث الإعدادى إعدإدإلأسناذ: محمود فؤإدالرجياي 


السؤال الخامس : قم بتتبح مجموعة الأوامر الآتية موضحا قيمة كل متخير فى كل مرة يتخير 


فیغا 
 X=45‏ -1 
Fori =0 To 7 Step 3‏ -2 
X=X*2‏ -3 
Next‏ -4 


الامر 


1- For i = 1 To 10 
2- Msg Box (i * i) 
3- Next 


1- i=1 

2- Do While ( i <=10)( 
3- Msg Box (i * i) 
4- i=i+1 

5- Loop 
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الفصل |لدرإسي |لئاني 1 


1 : : :[ 
الحاسب الآلى للصف الثالث الإعدادى إعدإدإلأسناذ : محمود فؤإدالرجياي 


السؤال السايح : صف المخرجات من تنفيذ مجموعة الأوامر التالية 


. Fori =0 To 7 

. if (i % 2 =0) Then 

. MsgBox( i + 1 ) 

. Else If (i % 3 = 0) Then 
. MsgBox( i * i) 

. Else If (i % 5 = 0) Then 
. MsgBox( 2 * i-1) 

. Else 

. MsgBoxX( i ) 

10. End If 

11. Next 


O O YT“ OG UO Bb OY N =4 


ملحوظة هامة : العلامة % تساوى "0١‏ وهي بمعنى باقي القسمة 


_ 

E O OS 
TT Te TT 
eB 
E SS KS 


For i =0 To 7 LL #€E | MsgBox( i + 1 ) 
MsgBox( 2 * i-1) 
MsgBox( Î + 1 ) 7 


BN E 
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الحاسب الآلى للصف الثالث الإعدادى 


الميقان 


الفصل الرابح 


Timers : المىقاتى‎ 


: ٣1ا‏ بطلق علبه کائن الحدث 
الكائن 1۳6٣‏ هو ساعة توقيت غير مرئية تتيح التعامل مع ساعة اثنظام )ها 51۳ل من داخل البرنامج 
التي تقوم بتنفيذها . 
هذه الكائن أو الأداة تعمل في الخلفية فلا يشعر بها أو يراها المستخدم . 

لأن هذه الأداة لا تظهر إلا في التصميم فقط فهي ليست في حاجة للخصائص التي تحدد المظهر العام مثل 
Height‏ و Width‏ . ولھا سبعة خصائص ففط . 
الكائن ۲1۳6۲ يعمل على استتارة حدث واحد فقط هو الحدث آ٣‏ ويتم استثارة هذا الحدث بعد مرور فترة 
زمنية محددة بواسطة الخاصية اة۲۷ |٣8‏ وهى أهم خصائص الأداة ٣"8‏ . 
قيمة الخاصية اك۲۷٠١٠|‏ (المدة الزمنية) تتراوح من 1 إئى 65535 وتقاس بوحدة الميللى ثائية . 
الميللى ثانية = واحد من الألف من الثانية والجدول التالي يوضح ذلك : 


قيمة الخاصية اج۲۷٥ا؟!‏ ما 


ينشط الكائن ۲1۳6۲ على فترات زمنية متساوية تسمى هذه الفترأت sاة۷١۲ |٣8‏ ويقع الحدث )ءآ كثثيجة لهذا 
النشاط . 

لينشط الكائن ۲۳6١‏ حسب الفترة الزمنية المحددة بالخاصية ا۷2١ |٣16‏ نقوم بضبط الخاصية اھ٤‏ عند 
القيمة 1۲۴ . حيث أن الخاصية ٥اا ۴٣2‏ تسمى خاصية التمكين . 

لمنع وقوع الحدث )ءآ أو إيقاف عمل الأداة أو الكائن ۲|٣8١‏ عن العمل نعطى الخاصية ١ااة.ع‏ التيسة 
False‏ . 

القيمة الافتراضية للخاصية عااة" ٤‏ هي اھ۴ وذلك ئلذاة ٣8ا‏ . 
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الفصل الدراسي الاي 


۴ 
اعدإدالأسناذ: محمود فوإدالرجيلاي 


2o ETT ETT TTL 
الحاسب الآلى للصف الثالث الإعدادى إعدإد|لأسناذ : محمود فؤإد|لرجياي‎ 


التكو ين € Datei‏ 
٠‏ عند الإعلان عن متغير من الثوع 031٥‏ يصبح بالإمكان استعمال التكوين ٠۳أ١٥0a1‏ وهذا التعوين يتمتع 
بخصائص وطرق (وسائل) . 
ه والجدول التالي يوضح بعض خصائص التكوين 01۲۳٠‏ بفرض أنه تم الإعلان عن متغير من النوع 021٥‏ 
اسمه × كما يلي : 
Dim X As Date‏ 


٣ 8/2/2009‏ ا 3 
ووهه أ 2_| _ شرمع تي روت نمل E‏ 


rT Wry X.Day 
1 - 31 
DayOfYear ورج الوم ن اتنا‎ X.DayOfYear 

1 - 366 

X.Hour‏ زاج السا 
0-23 

LL 

0 - 59 

X.Second‏ را 
O0 - 59‏ 


إدراج اسم الشهر ويستبدل الاسم برقم 
X.Month‏ حيٿ أن 1 مثلا تعنی الشهر الأول وهو 
ينایر 


AddDavs إنشاء تاريخ جديد متقدم أو متأخر عدد‎ X.AddDayes(1) oT 
۴ من الأيام‎ X.AddDayes(-2) تاکر اوسا‎ 


تقدیم 5 ساعات إنشاء تاريخ جديد متقدم أو متأخر عدد 

يم X.AddHours(5)‏ إنساء داري م او دجي RH Êr‏ 
تأخير 3 ساعات X.AddHours(-3)‏ من الساعات 
تقديم 30 دقيقة | Miu †es)30(‏ .× | إشاء تاريخ جديد متقدم أو متأخر عدد aaainutes‏ | 


AddMinutes X.AddMinutes(-15) | ةaيقد‎ 15 تأخير‎ 


من الدقائق 


ملحو ظات هامة جدا 
ه تستخدم الكلمة ٥ا51‏ للإعلان عن متغير خاص » حيث أن المتغير سيحتفظ بقيمته طول فترة التشغيل البرنامج 
ولن يتم إعطاؤه قيمة ابتدائية عند كل مرة يتم فيها استدعاء البرثامج الفرعي . 
ه بالطبع كلمة ٥ا5‏ هي من الكلمات المحجوزة التي لا يجوز استخدامها في غرض غير الغرض المخصص نها . 


43 


ت فصل الدراسي الثاني 


1 
٣ 5 LL‏ 
الحاسب الآلي للصف الثالث الإعدادي إعدإدالأسناذ: محمود فؤإدالرجياي 
حل اسطة الكتاب الخصل الرايح 
السؤال الأول : اخت الإجابة الصحيحة 
أ) ثانية ب ثانية ج) دقيقة د) ساعة 
DateTime (» Now (£ Time (ç CurrentTime (Î‏ 
X.AddHour(-24) (Î‏ ب( X.SubtaractDays(1)‏ 
X.AddDays(-1) (e‏ د جع ما سیق 
السؤال الغانى 
1 ما السبب في وقوع الحدث )زا ؟ 
٠‏ ينشط الكائن 6١‏ ".آ١‏ على فترات زمنية متساوية تسمى هذه الفترات كاج6۲۷]"| ويقع الحدث 
)ءا كنتيجة لهذا النشاط . 
2 اذا کان لدیث اھںماہ! قدرھا 1500 فما هو مقدارها بالثوانی؟ 
ه مقدارها 1.5 ثائية 
3- ما هى وظيفة الكائن 716۲ ؟ وما هو الحدث المرتبط به ؟ 
٠‏ الكائن ٥١‏ "71 هو ساعة توقيت غير مرنية تتيح التعامل مع ساعة النظام )ها٤‏ ١٣هاورك‏ من 
داخل البرنامج التي تقوم بتنفيذها . 
٠‏ ينشط الكائن "6١‏ آ۲ على فترات زمنية متساوية تسمى هذه الفترات واج۷إها"| ويقع الحدث 
)أا كنتيجة لهذا النشاط . 
44 
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